home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / game / map_quiz / a_japan.bas < prev    next >
BASIC Source File  |  1993-11-30  |  16KB  |  375 lines

  1. 1000 ' ******************************************************************
  2. 1010 ' *                                                                *
  3. 1020 ' *     :::::::::::: A_JAPAN.BAS ::::::::::::::                    *
  4. 1030 ' *                                     Programmed By T.K.Mosaku   *
  5. 1040 ' *                                     ~~~~~~~~~~~~~~~~~~~~~~~~   *
  6. 1050 ' ******************************************************************
  7. 1060 '
  8. 1070 '** 画面表示 **
  9. 1080  '
  10. 1090 LOAD@"D_JMAP.TIF",  (1,   1):CLS 4
  11. 1100 LOAD@"F_SWICH2.TIF",(28, 39)
  12. 1110 LOAD@"F_SWICH3.TIF",(164,39)
  13. 1120 '
  14. 1130 '** メニュ- 画面 **
  15. 1140 *MENU_GAMEN
  16. 1150 CLS 4:SIR=0
  17. 1160  LOCATE 61,2 :COLOR 2:PRINT"県名クイズ"
  18. 1170  LOCATE 55,4 :COLOR 2:PRINT" メニュ- "
  19. 1180  LOCATE 55,6 :COLOR 2:PRINT"何問に挑戦しますか。"
  20. 1190  LOCATE 57,8 :COLOR 1:PRINT"左クリックして"
  21. 1200  LOCATE 57,9 :COLOR 1:PRINT"下から選んで下さい。"
  22. 1210  LOCATE 55,11:COLOR 2:PRINT"君は?"
  23. 1220  LOCATE 57,13:COLOR 2:PRINT"どの位答えられるか。"
  24. 1230  LOCATE 55,16:COLOR 2:PRINT"  問題の数 "
  25. 1240  LOCATE 58,18:COLOR 2:PRINT" 5問 10問 20問"
  26. 1250  LOCATE 58,19:COLOR 2:PRINT" 30問 40問     "
  27. 1260 MOZI=0
  28. 1270 '
  29. 1280 MOUSE 0:MOUSE 1,596,353,1
  30. 1290 '
  31. 1300 '** メニュ- 選択 **
  32. 1310 X=MOUSE(4,0):Y=MOUSE(5,0)
  33. 1320  IF X>169 AND X<193 AND Y>61  AND Y<71  THEN SIR=1 :GOTO *SIRABERU
  34. 1330  IF X>39  AND X<60  AND Y>50  AND Y<69  THEN        GOTO *MENU_1
  35. 1340  IF X>73  AND X<93  AND Y>50  AND Y<69  THEN        GOTO *OWARI_E
  36. 1350  IF X>475 AND X<501 AND Y>344 AND Y<355 THEN PNO= 5:GOTO *MOZI
  37. 1360  IF X>523 AND X<550 AND Y>344 AND Y<355 THEN PNO=10:GOTO *MOZI
  38. 1370  IF X>560 AND X<600 AND Y>344 AND Y<355 THEN PNO=20:GOTO *MOZI
  39. 1380  IF X>475 AND X<501 AND Y>363 AND Y<375 THEN PNO=30:GOTO *MOZI
  40. 1390  IF X>523 AND X<550 AND Y>363 AND Y<375 THEN PNO=40:GOTO *MOZI
  41. 1400 GOTO 1310
  42. 1410 '
  43. 1420 '** 画面設定 **
  44. 1430 *MOZI
  45. 1440 CLS 4
  46. 1450  LOCATE 61,2 :COLOR 2:PRINT"県名クイズ"
  47. 1460  LOCATE 55,4 :COLOR 2:PRINT"問  題"
  48. 1470  LOCATE 61,8 :COLOR 2:PRINT"左クリックして"
  49. 1480  LOCATE 61,9 :COLOR 2:PRINT"下さい。"
  50. 1490  LOCATE 55,11:COLOR 2:PRINT"答  え"
  51. 1500  LOCATE 55,16:COLOR 2:PRINT"今までの成績"
  52. 1510  LOCATE 57,18:COLOR 2:PRINT"解答数"
  53. 1520  LOCATE 57,19:COLOR 2:PRINT"正答率         %"
  54. 1530 IF MOZI=1 THEN GOTO 3780
  55. 1540 '
  56. 1550 '** MAIN LOOTINE **
  57. 1560 CY=0:CN=0:CCN=0:DIM KIR(PNO-1):DIM NFW(PNO):KIRN=0:QQN=0
  58. 1570 '
  59. 1580 MOUSE 5:MOUSE 0
  60. 1590 MOUSE 1,596,353,1:MOUSE 4,25,36,382,412
  61. 1600 '
  62. 1610 RANDOMIZE TIME
  63. 1620 NFW(0)=INT(RND*48)
  64. 1630 T=1
  65. 1640   IF CCN=PNO THEN GOTO 3610
  66. 1650   N=INT(RND*47)+1
  67. 1660   FOR J=0 TO T-1
  68. 1670     IF NFW(J)=N THEN GOTO 1650
  69. 1680   NEXT J
  70. 1690   NFW(T)=N:QQ=N
  71. 1700     MOUSE 5:MOUSE 0
  72. 1710     MOUSE 1,382,412,1:MOUSE 4,25,36,382,421
  73. 1720   LOCATE 55,13:PRINT"                 "
  74. 1730     TTN=0:BN=0
  75. 1740     IF QQ=<10           THEN Q=QQ   :GOTO *M0
  76. 1750     IF QQ>10 AND QQ=<20 THEN Q=QQ-10:GOTO *M1
  77. 1760     IF QQ>20 AND QQ=<30 THEN Q=QQ-20:GOTO *M2
  78. 1770     IF QQ>30 AND QQ=<40 THEN Q=QQ-30:GOTO *M3
  79. 1780     IF QQ>40 AND QQ<50  THEN Q=QQ-40:GOTO *M4
  80. 1790 CCN=CCN+1:T=T+1:GOTO 1640
  81. 1800 T=T+1:GOTO 1640
  82. 1810 '
  83. 1820 *M0:ON Q GOTO *A1, *A2, *A3, *A4, *A5, *A6, *A7, *A8, *A9, *A10
  84. 1830 *M1:ON Q GOTO *A11,*A12,*A13,*A14,*A15,*A16,*A17,*A18,*A19,*A20
  85. 1840 *M2:ON Q GOTO *A21,*A22,*A23,*A24,*A25,*A26,*A27,*A28,*A29,*A30
  86. 1850 *M3:ON Q GOTO *A31,*A32,*A33,*A34,*A35,*A36,*A37,*A38,*A39,*A40
  87. 1860 *M4:ON Q GOTO *A41,*A42,*A43,*A44,*A45,*A46,*A47
  88. 1870 '
  89. 1880 *A1 :A$="長崎県":XP=46  :YP=364 :GOTO *SENTAKU
  90. 1890 *A2 :A$="佐賀県":XP=72  :YP=341 :GOTO *SENTAKU
  91. 1900 *A3 :A$="鹿児島":XP=79  :YP=376 :GOTO *SENTAKU
  92. 1910 *A4 :A$="島根県":XP=85  :YP=291 :GOTO *SENTAKU
  93. 1920 *A5 :A$="福岡県":XP=84  :YP=335 :GOTO *SENTAKU
  94. 1930 *A6 :A$="熊本県":XP=86  :YP=354 :GOTO *SENTAKU
  95. 1940 *A7 :A$="大分県":XP=93  :YP=340 :GOTO *SENTAKU
  96. 1950 *A8 :A$="宮崎県":XP=94  :YP=364 :GOTO *SENTAKU
  97. 1960 *A9 :A$="山口県":XP=103 :YP=320 :GOTO *SENTAKU
  98. 1970 *A10:A$="愛媛県":XP=124 :YP=340 :GOTO *SENTAKU
  99. 1980 *A11:A$="広島県":XP=126 :YP=308 :GOTO *SENTAKU
  100. 1990 *A12:A$="鳥取県":XP=132 :YP=258 :GOTO *SENTAKU
  101. 2000 *A13:A$="高知県":XP=140 :YP=339 :GOTO *SENTAKU
  102. 2010 *A14:A$="岡山県":XP=148 :YP=305 :GOTO *SENTAKU
  103. 2020 *A15:A$="香川県":XP=150 :YP=322 :GOTO *SENTAKU
  104. 2030 *A16:A$="徳島県":XP=159 :YP=330 :GOTO *SENTAKU
  105. 2040 *A17:A$="兵庫県":XP=166 :YP=299 :GOTO *SENTAKU
  106. 2050 *A18:A$="滋賀県":XP=168 :YP=258 :GOTO *SENTAKU
  107. 2060 *A19:A$="和歌山":XP=180 :YP=333 :GOTO *SENTAKU
  108. 2070 *A20:A$="京都府":XP=183 :YP=298 :GOTO *SENTAKU
  109. 2080 *A21:A$="大阪府":XP=184 :YP=310 :GOTO *SENTAKU
  110. 2090 *A22:A$="奈良県":XP=191 :YP=318 :GOTO *SENTAKU
  111. 2100 *A23:A$="三重県":XP=200 :YP=310 :GOTO *SENTAKU
  112. 2110 *A24:A$="福井県":XP=200 :YP=281 :GOTO *SENTAKU
  113. 2120 *A25:A$="石川県":XP=206 :YP=272 :GOTO *SENTAKU
  114. 2130 *A26:A$="岐阜県":XP=209 :YP=289 :GOTO *SENTAKU
  115. 2140 *A27:A$="愛知県":XP=217 :YP=302 :GOTO *SENTAKU
  116. 2150 *A28:A$="富山県":XP=219 :YP=265 :GOTO *SENTAKU
  117. 2160 *A29:A$="長野県":XP=233 :YP=280 :GOTO *SENTAKU
  118. 2170 *A30:A$="静岡県":XP=236 :YP=306 :GOTO *SENTAKU
  119. 2180 *A31:A$="山梨県":XP=243 :YP=288 :GOTO *SENTAKU
  120. 2190 *A32:A$="新潟県":XP=251 :YP=249 :GOTO *SENTAKU
  121. 2200 *A33:A$="群馬県":XP=251 :YP=270 :GOTO *SENTAKU
  122. 2210 *A34:A$="埼玉県":XP=257 :YP=278 :GOTO *SENTAKU
  123. 2220 *A35:A$="栃木県":XP=267 :YP=264 :GOTO *SENTAKU
  124. 2230 *A36:A$="山形県":XP=273 :YP=218 :GOTO *SENTAKU
  125. 2240 *A37:A$="千葉県":XP=277 :YP=298 :GOTO *SENTAKU
  126. 2250 *A38:A$="秋田県":XP=278 :YP=190 :GOTO *SENTAKU
  127. 2260 *A39:A$="福島県":XP=279 :YP=244 :GOTO *SENTAKU
  128. 2270 *A40:A$="茨城県":XP=279 :YP=275 :GOTO *SENTAKU
  129. 2280 *A41:A$="神奈川":XP=280 :YP=345 :GOTO *SENTAKU
  130. 2290 *A42:A$="青森県":XP=287 :YP=165 :GOTO *SENTAKU
  131. 2300 *A43:A$="宮城県":XP=288 :YP=217 :GOTO *SENTAKU
  132. 2310 *A44:A$="東京都":XP=295 :YP=325 :GOTO *SENTAKU
  133. 2320 *A45:A$="岩手県":XP=299 :YP=187 :GOTO *SENTAKU
  134. 2330 *A46:A$="北海道":XP=314 :YP=95  :GOTO *SENTAKU
  135. 2340 *A47:A$="沖縄県":XP=60: :YP=262 :GOTO *SENTAKU
  136. 2350 '
  137. 2360 *SENTAKU
  138. 2370   IF TTN=0 THEN GOTO *WRITE 
  139. 2380   IF TTN=1 THEN GOTO *WRITE_NO 
  140. 2390   IF TTN=2 THEN GOTO *SIRABE_WRITE 
  141. 2400 '
  142. 2410 *WRITE
  143. 2420   LINE(441,101)-(601,146),PSET,%13,BF
  144. 2430   SYMBOL(466,110),A$,2,2,3,0,PSET,8,10
  145. 2440   GOTO 2480
  146. 2450 '
  147. 2460 *POINT
  148. 2470 MOUSE 5:MOUSE 0:MOUSE 1,X,Y,1: MOUSE 4,27,38,396,426:GOTO 2490
  149. 2480 MOUSE 5:MOUSE 0:MOUSE 1,337,364,1:MOUSE 4,27,3,396,426
  150. 2490 B=1
  151. 2500 X=MOUSE(4,0):Y=MOUSE(5,0)
  152. 2510 IF X>169 AND X<193 AND Y>61  AND Y<71  THEN       GOTO *SIRABERU
  153. 2520 IF X>200 AND X<223 AND Y>61  AND Y<71  THEN BN=0 :GOTO *MODORU
  154. 2530 IF X>39  AND X<60  AND Y>50  AND Y<69  THEN       GOTO *MENU_E
  155. 2540 IF X>73  AND X<93  AND Y>50  AND Y<69  THEN       GOTO *OWARI_E
  156. 2550 IF X>42  AND X<50  AND Y>360 AND Y<368 THEN TT=1 :GOTO *BUNKI'長 崎
  157. 2560 IF X>68  AND X<76  AND Y>337 AND Y<345 THEN TT=2 :GOTO *BUNKI'佐 賀
  158. 2570 IF X>75  AND X<83  AND Y>372 AND Y<380 THEN TT=3 :GOTO *BUNKI'鹿児島
  159. 2580 IF X>81  AND X<89  AND Y>287 AND Y<295 THEN TT=4 :GOTO *BUNKI'島 根
  160. 2590 IF X>80  AND X<88  AND Y>331 AND Y<339 THEN TT=5 :GOTO *BUNKI'福 岡
  161. 2600 IF X>82  AND X<90  AND Y>350 AND Y<358 THEN TT=6 :GOTO *BUNKI'熊 本
  162. 2610 IF X>89  AND X<97  AND Y>336 AND Y<344 THEN TT=7 :GOTO *BUNKI'大 分
  163. 2620 IF X>90  AND X<98  AND Y>360 AND Y<368 THEN TT=8 :GOTO *BUNKI'宮 崎
  164. 2630 IF X>99  AND X<107 AND Y>316 AND Y<324 THEN TT=9 :GOTO *BUNKI'山 口
  165. 2640 IF X>120 AND X<128 AND Y>336 AND Y<344 THEN TT=10:GOTO *BUNKI'愛 媛
  166. 2650 IF X>122 AND X<130 AND Y>304 AND Y<312 THEN TT=11:GOTO *BUNKI'広 島
  167. 2660 IF X>128 AND X<136 AND Y>254 AND Y<262 THEN TT=12:GOTO *BUNKI'鳥 取
  168. 2670 IF X>136 AND X<144 AND Y>335 AND Y<343 THEN TT=13:GOTO *BUNKI'高 知
  169. 2680 IF X>144 AND X<152 AND Y>301 AND Y<309 THEN TT=14:GOTO *BUNKI'岡 山
  170. 2690 IF X>146 AND X<154 AND Y>318 AND Y<326 THEN TT=15:GOTO *BUNKI'香 川
  171. 2700 IF X>155 AND X<163 AND Y>326 AND Y<334 THEN TT=16:GOTO *BUNKI'徳 島
  172. 2710 IF X>162 AND X<170 AND Y>295 AND Y<303 THEN TT=17:GOTO *BUNKI'兵 庫
  173. 2720 IF X>164 AND X<172 AND Y>253 AND Y<261 THEN TT=18:GOTO *BUNKI'滋 賀
  174. 2730 IF X>176 AND X<184 AND Y>329 AND Y<337 THEN TT=19:GOTO *BUNKI'和歌山
  175. 2740 IF X>179 AND X<187 AND Y>294 AND Y<302 THEN TT=20:GOTO *BUNKI'京 都
  176. 2750 IF X>180 AND X<187 AND Y>306 AND Y<314 THEN TT=21:GOTO *BUNKI'大 阪
  177. 2760 IF X>187 AND X<195 AND Y>314 AND Y<322 THEN TT=22:GOTO *BUNKI'奈 良
  178. 2770 IF X>196 AND X<204 AND Y>306 AND Y<314 THEN TT=23:GOTO *BUNKI'三 重
  179. 2780 IF X>196 AND X<204 AND Y>277 AND Y<285 THEN TT=24:GOTO *BUNKI'福 井
  180. 2790 IF X>202 AND X<210 AND Y>268 AND Y<276 THEN TT=25:GOTO *BUNKI'石 川
  181. 2800 IF X>205 AND X<213 AND Y>285 AND Y<293 THEN TT=26:GOTO *BUNKI'岐 阜
  182. 2810 IF X>213 AND X<221 AND Y>298 AND Y<306 THEN TT=27:GOTO *BUNKI'愛 知
  183. 2820 IF X>215 AND X<223 AND Y>261 AND Y<269 THEN TT=28:GOTO *BUNKI'富 山
  184. 2830 IF X>229 AND X<237 AND Y>276 AND Y<284 THEN TT=29:GOTO *BUNKI'長 野
  185. 2840 IF X>232 AND X<240 AND Y>302 AND Y<310 THEN TT=30:GOTO *BUNKI'静 岡
  186. 2850 IF X>239 AND X<247 AND Y>284 AND Y<292 THEN TT=31:GOTO *BUNKI'山 梨
  187. 2860 IF X>247 AND X<255 AND Y>245 AND Y<253 THEN TT=32:GOTO *BUNKI'新 潟
  188. 2870 IF X>247 AND X<255 AND Y>264 AND Y<272 THEN TT=33:GOTO *BUNKI'群 馬
  189. 2880 IF X>253 AND X<261 AND Y>274 AND Y<282 THEN TT=34:GOTO *BUNKI'埼 玉
  190. 2890 IF X>263 AND X<271 AND Y>260 AND Y<268 THEN TT=35:GOTO *BUNKI'栃 木
  191. 2900 IF X>269 AND X<277 AND Y>214 AND Y<222 THEN TT=36:GOTO *BUNKI'山 形
  192. 2910 IF X>273 AND X<281 AND Y>294 AND Y<303 THEN TT=37:GOTO *BUNKI'千 葉
  193. 2920 IF X>274 AND X<282 AND Y>186 AND Y<194 THEN TT=38:GOTO *BUNKI'秋  田
  194. 2930 IF X>275 AND X<284 AND Y>240 AND Y<248 THEN TT=39:GOTO *BUNKI'福 島
  195. 2940 IF X>275 AND X<283 AND Y>271 AND Y<279 THEN TT=40:GOTO *BUNKI'茨 城
  196. 2950 IF X>276 AND X<284 AND Y>341 AND Y<349 THEN TT=41:GOTO *BUNKI'神奈川
  197. 2960 IF X>283 AND X<291 AND Y>161 AND Y<169 THEN TT=42:GOTO *BUNKI'青  森
  198. 2970 IF X>284 AND X<292 AND Y>213 AND Y<221 THEN TT=43:GOTO *BUNKI'宮 城
  199. 2980 IF X>291 AND X<299 AND Y>321 AND Y<329 THEN TT=44:GOTO *BUNKI'東 京
  200. 2990 IF X>295 AND X<304 AND Y>183 AND Y<191 THEN TT=45:GOTO *BUNKI'岩 手
  201. 3000 IF X>310 AND X<318 AND Y>91  AND Y<99  THEN TT=46:GOTO *BUNKI'北海道
  202. 3010 IF X>56  AND X<64  AND Y>258 AND Y<266 THEN TT=47:GOTO *BUNKI'沖  縄
  203. 3020 IF B=1 THEN 3030 ELSE 2500
  204. 3030 'MOUSE 5:MOUSE 0
  205. 3040 'MOUSE 1,382,412,1:MOUSE 4,25,36,382,412
  206. 3050 B=B+1
  207. 3060 GOTO 2500
  208. 3070 '
  209. 3080 *BUNKI
  210. 3090   IF BN=0 THEN *QUIZ ELSE *SIRABE
  211. 3100 *QUIZ 
  212. 3110   IF QQ=TT THEN *YES ELSE *NO
  213. 3120 *SIRABE 
  214. 3130   TTN=2:GOTO *CHECK
  215. 3140 '
  216. 3150 *YES
  217. 3160  CY=CY+1
  218. 3170    LOCATE 57,13:COLOR 1:PRINT"正解です。  " 
  219. 3180    PCMPLAY YES_S%,120
  220. 3190  GOSUB *COUNT
  221. 3200  WAIT 100
  222. 3210  IF QQN=1 THEN GOTO 3810
  223. 3220  GOTO 1790
  224. 3230 '
  225. 3240 *NO
  226. 3250  CN=CN+1:TTN=1
  227. 3260    LOCATE 64,12:COLOR 3:PRINT"残念でした。" 
  228. 3270    PCMPLAY NO_S%,120
  229. 3280    XPP=XP:YPP=YP
  230. 3290    *CHECK
  231. 3300     IF TT=<10           THEN Q=TT   :GOTO *M0
  232. 3310     IF TT>10 AND TT=<20 THEN Q=TT-10:GOTO *M1
  233. 3320     IF TT>20 AND TT=<30 THEN Q=TT-20:GOTO *M2
  234. 3330     IF TT>30 AND TT=<40 THEN Q=TT-30:GOTO *M3
  235. 3340     IF TT>40 AND TT<50  THEN Q=TT-40:GOTO *M4
  236. 3350 *WRITE_NO
  237. 3360  LOCATE 55,13:COLOR 1:PRINT"そこは『";A$;"』です。"
  238. 3370  GOSUB *COUNT
  239. 3380  GOSUB *KIROKU
  240. 3390  WAIT 70
  241. 3400    CIRCLE (XPP,YPP),6,5,,,,F,XOR
  242. 3410  WAIT 250
  243. 3420    CIRCLE (XPP,YPP),6,5,,,,F,XOR
  244. 3430  LOCATE 64,12:COLOR 3:PRINT"            " 
  245. 3440  LOCATE 55,13:COLOR 1:PRINT"                      "
  246. 3450  IF QQN=1 THEN GOTO 3810
  247. 3460  GOTO 1790
  248. 3470 '
  249. 3480 *COUNT
  250. 3490  CT=CY+CN
  251. 3500  CC=INT((CY/CT)*100)
  252. 3510  CG=INT(CC*1.5!):IF CG>150 THEN CG=150
  253. 3520    LOCATE 63,18:PRINT "             "
  254. 3530    LOCATE 67,19:PRINT "     "
  255. 3540    LOCATE 63,18:COLOR 1:PRINT "(";CY;"/";CT;")  "
  256. 3550    LOCATE 67,19:COLOR 1:PRINT CC
  257. 3560    LINE (451,   381)-(601,   406),PSET,%8,B
  258. 3570    LINE (451,   381)-(450+CG,406),PSET,%8,BF,%11
  259. 3580    LINE (451+CG,381)-(601,   406),PSET,%8,BF,%13
  260. 3590  RETURN
  261. 3600 '
  262. 3610 '** 確認 選択 **
  263. 3620 MOUSE 5:CLS 4
  264. 3630   LINE(464,107)-(586,145),PSET,%13,BF
  265. 3640   LINE(451,381)-(601,406),PSET,%8,BF,%13
  266. 3650   LOCATE 55,6 :COLOR 2:PRINT"間違いを確かめますか?"
  267. 3660   LOCATE 58,7 :COLOR 1:PRINT"     確かめます。"
  268. 3670   LOCATE 58,8 :COLOR 1:PRINT"     確かめません。"
  269. 3680 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  270. 3690 X=MOUSE(4,0):Y=MOUSE(5,0)
  271. 3700   IF X>39  AND X<60  AND Y>50  AND Y<69  THEN GOTO *MENU_E
  272. 3710   IF X>73  AND X<93  AND Y>50  AND Y<69  THEN GOTO *OWARI_E
  273. 3720   IF X>505 AND X<573 AND Y>135 AND Y<145 THEN GOTO 3760
  274. 3730   IF X>505 AND X<588 AND Y>153 AND Y<167 THEN GOTO 3900
  275. 3740 GOTO 3690
  276. 3750 '
  277. 3760 '** 確認 ROOTINE ** 
  278. 3770 MOZI=1:GOTO *MOZI
  279. 3780   PNO=KIRN-1:QQN=1:CY=0:CN=0 
  280. 3790   FOR J=0 TO PNO
  281. 3800     QQ=KIR(J):GOTO 1730
  282. 3810   NEXT J
  283. 3820  MOUSE 5:CLS 4
  284. 3830 '
  285. 3840   LINE(464,107)-(586,145),PSET,%13,BF
  286. 3850   LINE(451,381)-(601,406),PSET,%8,BF,%13
  287. 3860   LOCATE 55,5 :COLOR 2:PRINT"もう一度"
  288. 3870   LOCATE 55,6 :COLOR 2:PRINT"間違いを確かめますか?"
  289. 3880   GOTO 3660
  290. 3890 '
  291. 3900 '** END 選択 **
  292. 3910   'LINE(464,107)-(586,145),PSET,%13,BF
  293. 3920   'LINE(451,381)-(601,406),PSET,%8,BF,%13
  294. 3930 MOUSE 5:CLS 4:ERASE KIR:ERASE NFW
  295. 3940   LOCATE 56,6 :COLOR 2:PRINT"続けますか?"
  296. 3950   LOCATE 58,7 :COLOR 1:PRINT"     続けます。"
  297. 3960   LOCATE 58,8 :COLOR 1:PRINT"     終わります。"
  298. 3970 MOUSE 0:MOUSE 1,596,353,1
  299. 3980 X=MOUSE(4,0):Y=MOUSE(5,0)
  300. 3990   IF X>39  AND X<60  AND Y>50  AND Y<69  THEN GOTO *MENU_E
  301. 4000   IF X>73  AND X<93  AND Y>50  AND Y<69  THEN GOTO *OWARI_E
  302. 4010   IF X>505 AND X<573 AND Y>135 AND Y<145 THEN GOTO 1150
  303. 4020   IF X>505 AND X<588 AND Y>153 AND Y<167 THEN GOTO 4070
  304. 4030 GOTO 3980
  305. 4040 '
  306. 4070 MOUSE 5:CLS 4
  307. 4080   LOCATE 55,6 :COLOR 2:PRINT"メニュ-に戻りますか?"
  308. 4090   LOCATE 55,7 :COLOR 1:PRINT"    戻ります。"
  309. 4100   LOCATE 55,8 :COLOR 1:PRINT"    戻らず終わります。"
  310. 4110 MOUSE 0:MOUSE 1,596,353,1
  311. 4120 X=MOUSE(4,0):Y=MOUSE(5,0)
  312. 4130   IF X>39  AND X<60  AND Y>50  AND Y<69  THEN GOTO *MENU_E
  313. 4140   IF X>73  AND X<93  AND Y>50  AND Y<69  THEN GOTO *OWARI_E
  314. 4150   IF Y>135 AND Y<145 THEN 4220
  315. 4160   IF Y>153 AND Y<167 THEN 4260
  316. 4170 GOTO 4120
  317. 4180 '
  318. 4190 *MENU_E
  319. 4200 MOUSE 5:ERASE KIR:ERASE NFW
  320. 4210 *MENU_1
  321. 4220 CHAIN "B_MENU2.BAS",,ALL
  322. 4230 RUN "B_MENU2.BAS"
  323. 4240 '
  324. 4250 *OWARI_E
  325. 4260 CHAIN "B_END.BAS",,ALL
  326. 4270 RUN "B_END.BAS"
  327. 4280 '
  328. 4290 *KIROKU
  329. 4300  KIR(KIRN)=QQ:KIRN=KIRN+1
  330. 4310  RETURN
  331. 4320 '
  332. 4330 '
  333. 4340 *SIRABERU
  334. 4350  IF SIR=1 THEN CLS 4:GOTO 4420
  335. 4360  'LINE(441,101)-(601,146),PSET,%13,BF
  336. 4370  'CLS 4
  337. 4380  '
  338. 4390  LOCATE 55,8 :COLOR 2:PRINT"  クイズ中断中    "
  339. 4400  LOCATE 57,9 :COLOR 1:PRINT"  調べモードです。":GOTO 4440
  340. 4410  '
  341. 4420  LOCATE 55,6 :COLOR 2:PRINT"クイズ中断中 "
  342. 4430  LOCATE 57,8 :COLOR 1:PRINT"調べモードです。"
  343. 4440  LOCATE 61,2 :COLOR 2:PRINT"県名クイズ"
  344. 4450  LOCATE 55,4 :COLOR 2:PRINT"確  認"
  345. 4460  LOCATE 55,11:COLOR 2:PRINT"県 名"
  346. 4470   BN=1:GOTO *POINT
  347. 4480 '
  348. 4490 *SIRABE_WRITE
  349. 4500  LOCATE 15,22:COLOR 3:PRINT SPACE$(50)
  350. 4510  FOR T=5 TO 2 STEP -1 
  351. 4520    LOCATE 55,13:COLOR T:PRINT"そこは『";A$;"』です。"
  352. 4530    WAIT 25
  353. 4540  NEXT
  354. 4550  WAIT 50:GOTO *POINT
  355. 4560 '
  356. 4570 *MODORU
  357. 4580  IF SIR=1 THEN GOTO *MENU_GAMEN'
  358. 4590  LOCATE 55,6 :COLOR 2:PRINT SPACE$(18)
  359. 4600  LOCATE 57,8 :COLOR 1:PRINT SPACE$(18)
  360. 4610  LOCATE 57,9 :COLOR 1:PRINT SPACE$(18)
  361. 4620  LOCATE 55,11:COLOR 2:PRINT SPACE$(18)
  362. 4630  LOCATE 55,13:COLOR T:PRINT SPACE$(22)
  363. 4640  LOCATE 61,2 :COLOR 2:PRINT"県名クイズ"
  364. 4650  LOCATE 55,4 :COLOR 2:PRINT"問  題"
  365. 4660  LOCATE 61,8 :COLOR 2:PRINT"左クリックして"
  366. 4670  LOCATE 61,9 :COLOR 2:PRINT"下さい。"
  367. 4680  LOCATE 55,11:COLOR 2:PRINT"答  え"
  368. 4690  GOTO 1800
  369. 4700 '
  370. 4710 *MOUS
  371. 4720  MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  372. 4730  X=MOUSE(4,0):Y=MOUSE(5,0)
  373. 4740  LOCATE 30,19:PRINT X;Y
  374. 4750  GOTO 4730
  375.